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AUCKLAND DISTRICT USER GROUP 
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NEWSLETTER NO. 24 


MARCH 1986 


Guess what time of the year it is again???? You guessed it 11 It 
is subscription timelll Please send the following amount in to 
us as soon as you can: 


Auckland members who attend meetings $15.00 per year 
All country members $10.00 per year 
Student members (for Auckland people only) $10.00 per year 


Remember, the above amount includes families or single people, 
whether in Auckland or in the country. To qualify for student 
membership, you must be at school or at university. And if there 
are two students from the one family - sorry, but that is classed 
as family membership. 

All those subscriptions paid before the end of March 1986 will 
receive a brand new program on tape free of charge - for our 
appreciation of early payment. Auckland members will be able to 
pay their subscription at our 31st March meeting. Yes, I know 
that this is in the middle of Easter - but that is how the hall 
is booked, and we cannot change it. 

So, please support your Club, and get your subscriptions in so 
that we can purchase more software. 


DISK DRIVES 

You will remember seeing Chris's article on the disk drive 
interfaces which are now available through the Group. The only 
snag with these is that we require the money up front. 
Unfortunately, we have to order a minimum of 10 each time, and 
the Group just can't find a total of $3200.00 just lying around 
in some account or other, so that we can bring in the first lot 
of 10 orders, then hope that we can sell them! 1 To whet your 
appetite on these interfaces, I have typed out a list of the 
commands that are available - remember that you also get a free 
disk and manual (in English!) with each interface. We have 
received a few cheques already - some within 4 days of sending 
out the newsletter. 


I 


1 
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The disk drive interfaces are going to go a long way towards 
keeping the Genie alive and kicking. Even if you can't afford 
one right now, please let either Chris or I know that you will 
definitely want one - and approximately when you will want one. 
This way we can plan future orders . We only need a couple more 
cheques now, to be able to send the first order off. 


Some of you Auckland members will remember seeing this particular 
disk drive interface in action at a Colour Genie meeting last 
year. Phil Lovegrove was able to get it up and running at the 
meeting with the help of Keith Dix who just happened to have a 
disk drive sitting in his carl 1 


CMD(M/C) AND DISK DRIVE COMMANDS 


CLOSE buffer number 

Closes all opened files or the ones specified by buffer 
number . 

CVD( string variable) 

Converts the string variable into a double precision number. 
CVI (string variable) 

Converts the string variable into an integer number. 

CVS (string variable) 

Converts the string variable into a single precision number. 
CMD " <DR#=Typ" 

Changes the type of drive specification on drive DR#. 

CMD"? Addr " 

Returns in hexidecimal the contents of addr and addr+1 (a 
double byte PEEK). 


CMD "C " 

Removes all REM statements and unnecessary spaces from a 
BASIC program. 


CMD "D" 

Performs the Z80 restart 30. 


CMD "E" 

Displays the last Disk Basic Error code on the screen. 
CMD "F DR#" 

Formats the diskette in drive DR#. 


CMD "G start address, AF,BC,DE,HL" 

Calls the start address and passes the values to the Z80 
registers . 
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CMD"H" 

Renews a program that has been deleted via the NEW command. 
CMD"I DR#" 

Displays the directory listing of drive DR#. 

CMD "JKL" 

Sends the contents of the screen to the printer. 

CMD"L Name: DR#" 

Loads a machine code program into memory from drive DR#. 
CMD"N 01 dname:DR# Newname" 

Renames the program Oldname on drive DR# to that of Newname. 
CMD"R" 

Switches the system clock on. 

CMD"S Name: DR#" 

Loads and executes the machine code program on drive DR#. 
CMD"T" 

Switches the system clock off. 

CMD "U " 

Turns the clock display on. 

CMD "U ,N" 

Turns the clock display off. 

CMD "V Addr " 

Removes a machine code routine from the interrupt chain. 

CMD"W Name, start addr, end addr, execution addr, offset" 

Saves a block of memory from start address to end address 
with an execution address and memory offset with the file 
name of Name . 

CMD "X Addr" 

Puts the Addr into the restart 28 vector. 

CMD "Y Addr" 

Adds a machine code routine into the interrupt chain. 

CMD" Z Addr" 

Fills the memory from start address to end address with 
the value of byte. 

DEFFN Function name (variable list) 

Allows you to define single line functions (TRS80) . 

DEFUSRn=start address 

Sets the start address of the usr function n, which can 
be from 0 to 9 . 
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FN function name (variable list) 

Recalls the function defined with DEFFN. 


GET buffer number, record 

Reads a random access field into the buffer. 


INSTR(n, String 1, String 2) 

Finds the position of string 2 within string 1 starting 
at byte n. 


INPUT#buffer number, variable( s) 

Reads data from a sequential file into the variables. 


KILL "Filename " 

Deletes a file or program from the diskette. 


LINEINPUT "Text"? String variable 

As the INPUT command, but allows commas to be keyed into 
the string. 


LINEINPUTtbuffer number, string variable 
As INPUT#, but ignores commas etc. 


LOAD "Filename" 

Loads a basic program from the diskette. 

LOAD "Filename" , R 

As load, but RUNS the program once in memory. 

LOC (buffer number) 

Returns the last record access from an OPENed random 
file. 


LSET 

Left justifies data into an open fielded variable, 
MERGE "Filename" 

Merges an ASCII saved basic program with a program 
already stored in memory. 

MID$( string 1 , S , L )=string2 

Replaces a portion of string 1 with string 2, starting 
at position S for a length of L. 

MKD$ (double precision) 

Converts a double precision number into a string of 
8 bytes long. 

MKE$ (integer) 

Converts an integer number into a string of 2 bytes 
long. 
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MKS$( single precision) 

Converts a single precision number into a string of 
4 bytes long. 


NAME 

Prints the name of the last used BASIC program onto 
the screen. 

OPEN "mode" , buffer number, " filename " 

Opens a file for processing. 

PRINT tbuffer number, vars 

Writes the variables to the sequential file opened 
using buffer number. 

PUT buffer number, record number 

Puts the fielded variables onto record number of the 
file opened for random access. 


RSET 

Right justifies data into an open fielded variable. 
RUN "filename" 

Loads and runs a BASIC program. 

SAVE" filename" 

Saves a BASIC program in condensed form. 

SAVE" filename" ,A 

Saves a BASIC program in ASCII format. 

SAVE "filename" ,Axx-yy 

Saves a BASIC program in ASCII format, only including 
lines xx to yy. 


TIME$ 

Returns a 17 byte long string containing the time and 
date information when set. 

USRn(num) 

Calls user machine code number n (0 to 9) set up with 
DEFUSRn, passing num to the routine. 


There are also a number of RST calls listed and DOS Routines 

(37 of these) which are listed in the manual, and which are 
available to be called up. 


There are several programs included on the free diskette, which 
include transfering tape programs (machine code) onto diskette. 
This would be a very handy program indeed, and is one which 
Commodore took months to release (and then it was released by a 
"hacker"! 1) 
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Last Month's Ne wsletter 

I must apologise to you all for not including my usual few pages 
in the last newsletter. However, I had fallen victim to the 
'dreaded lurgy' once again, and got to the stage where I was 
even unable to get out of bed for several days. When one has 
just started a new job at the beginning of the year, one doesn't 
like to pander to one’s illnesses and take time off, but I 
finally got to the stage (after three visits to the doctor) of 
collapsing on my bed and being unable to get off it again. I 
managed to get acute bronchitis and acute trachy-something-or- 
other, in the summertime for goodness sakel and the amount of 
coughing that I did managed to damage a rib or two as well. I 
was unable to even lift my arm for a couple of weeks there. I 
really thought I was about to be measured for a coffin. So I am 
very relieved indeed to be able to write my piece for this 
news letter 1 1 


Believe it or not, I was still able to keep up with the cassette 
tape orders, but those people who are still waiting for a letter 
from me are still doing just that - waiting! I Sorry folks, there 
seem to be just so many hours in the day, but I will get around 
to it yet, don't give up hope. 


By the way, I don't work at Rakon any more, and from what some of 
you are telling me over the phone at home, Rakon are getting 
pretty darned tired of telling you all so when you ring up for me 
- so, please ring me at home (Ph 655 718) in future, and not at 
Rakon. Let's give the phone girl at Rakon a pleasant dayl 
Several of you have mentioned to me of the shortness of temper of 
the girl who answers the phone at Rakon - perhaps there have been 
rather a lot of calls from members. 


DATA SAVING AND LOADING - reliably 

Andy Russell demonstrated a machine code program that he has 
written himself, that takes up about 1 byte of memory, and 
enables you to save and load data quickly and effortlessly! He 
has been using this program for some time now, and has never had 
a save failure. This program is being distributed free to all 
members who pay their subscriptions before the end of this month. 


A 'NO FRILLS' MACHINE CODE WORD PROCESSOR 

Andy has been very busy lately, he has also written a machine 
code word processor. This doesn't right justify, but it does 
everything that is basically required in a word processor, and it 
contains his data saving and loading routine. This is available 
from him on receipt of a blank tape. That's the only cost. 


The actual programs - source code, assembly code and BASIC code - 
will be included in next month's newsletter free of charge. BUT 
remember that the only people who will be getting next month's 
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There are a lot of new programs that have come in over the last 
couple of months. Our family haven't had time to have a look at 
all of them yet, so I have just listed what is available, and 
will bring them along to the next meeting so that people can try 
them during the meeting. This doesn't help the country members 
I know, but I will put a description of them in the next 
news letter. 


Some of the new programs are:- 


Cowboy $15. 00 

Now this game fascinates me. You have to push all these hay 
bales around the screen using the arrow keys, and eventually you 
block in three steers. These steers are pretty smart and unless 
you block them in properly, they can get through practically 
anywhere, So far, I have got up to the sixth screen, with each 

screen getting pr ogr ess i ve 1 y harder and the steers getting 
progressively faster! I really recommend this game! 


Tank Maze $15.00 

All I really know about this game, is that you have a pile of 
tanks and a pile of ' some th i ng-e 1 ses ' , and I think you have to 
get the tanks through the some th i ng-e 1 ses ! More on this next 
month . 


G r a b j_ t $15.00 

There are three or four policemen chasing you and you have to race 
around the screen grabbing the bags of money and avoiding the 
police. There are several varying screens all with the same 
idea. Quite a good game. 


s wagman $15.00 

This is really based on the same idea as the last one - you have 
to grab the piles of 'whatever' and store them, then race back 
and get some more. You can create your own 'whatevers' with this 
game using the spacebar. The more 'whatevers' you get and store, 
the more points you get. Again, there will have to be a better 

description in the next newsletter. 


Drone $15.00 

This one has several different screens to it. According to the 
writeup in the latest Gum magazine you have to collect the little 
black boxes and bring them back to base, all the while avoiding 
and shooting at, the enemies. 
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Munchman $15 e 00 

This is based on the good old Facman style, and is quite a good 
version of Facman . 


Jump Jack $15.00 

I'm darned if I can figure this one out. It is very fast moving, 
and to me at least, very difficult. I intend to farm this one 
out to our enthusiastic sub-group in Feilding to see if they can 
figure out how to play it. 


Tr on $15. 00 

Same with this one. 


Gh os t r ±der $15.00 

This one gets my interest for some time, then I get so frustrated 
with it that I swear I'll never play it again. Based on the 
Punkte game, you have a big square of dots, you start at the top 
left hand corner, and your opponent (the Genie) starts at the 
bottom right hand corner . You go round and round (the screen has 
decreasing rows) eating the dots, and your opponent is trying to 
catch you. It took me hours before I worked out that you have to 
use the down arrow key right at the start to even get into the 
middle part and start the game. 


GProbe $25.00 

This looks to be an extremely good Database program. You get a 
lOpage manual on how to use the program, and this manual goes 
slowly through setting up a database with the countries of the 
world, and their capitals. A very thorough manual, and if the 
program is as good as it looks, it will be a very good program 
i ndeed . 


My friends in Holland have just sent me another couple of tapes. 
They don't mention the last letter and tape I sent them before 
Xmas, so it looks as though it might have gone astray. However, 
I hope to sort out the programs on these two tapes over the next 
month, so it looks as though it will be a busy month. Then too, 
I have received a tape from a D. Huggins in England, who has only 
just found out that our group exists, and is willing to sell his 
programs to us. Those of you who receive the Gum magazine will 
have seen reviews on some of his programs. These too will have 
to be listed next newsletter, I haven't had time to look at any 
of these three tapes yet. 

So, we have plenty of programs coming up over the next couple of 
months. In nice time for the winter months when we all have 
nothing to do but play on the Colour Genie. 
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In the latest Gum, on page 23 there is a program with part of it 
being very hard to read. Rather than type out a page to go with 
each newsletter, I am putting the hard-to-read part of the 
program in this newsletter, 

260 IF BU < 1 GOTO 2430 

300 FOR F=OT01 9 : COLOUR RND (16): PR I NT@P , CHR $(128); ; 

COLOUR RND ( 16) : etc 

310 FOR P= ITOl 8 : COLOUR RND (16): PRINT@40+P , CHR$ (128): 

TAB (19); CHR % (126); : NEXT 


This is out of the September /October /November /December 1985 issue 
of Gum , For those of you that haven't got yours yet, it is on 
its way UNLESS YOU HAVEN'T PAID FOR EITHER SOFTWARE ORDERED OR 
FOR YOUR LAST GUM MAGAZINE. And the issue date isn't wrong 
either, the latest Gum covers all four months* The English 
Group's last letter to me asked me not only how was the weather 
here in Australia 1 !, but also said things were really tough on 
the home computer front in England, and that the English Group 
would try and hold out till about September this year! Very bad 
news as far as we are concerned, and even worse news for the 
1000-2000 Colour Genie members in England. 

Getting back to those people that owe us money, PLEASE send us 
your overdue payments, the Group is not able to carry it's 
members. We have quite a few people that have had outstanding 
invoices for some months now, including one person whose cheque 
bounced LAST YEAR and who still hasn't honoured his account. 

You will notice that this newsletter is a reasonable size this 
month - I had to make up for last month! 

Let's make the Easter meeting a good one Aucklanders - if one of 
our Feilding members can make the meeting (and has done so on 
other occasions as well) surely those of us actually living in 
Auckland can come along too. It is unfortunate that the next 
meeting is actually on Easter Monday, but that comes with the 
annual booking that we make, and cannot be changed. One of our 
committee members is arranging tea, coffee and bikkies again, so 
you won't go a way thirsty or hungry! 

The next meeting is on the 31st March - please try to come along 
and bring your subscriptions with you. 

Your committee is looking forward to seeing a big crowd in the 
hall again - we've forgotten what one looks like 1 ! 


No]_ a Huggins 


PEOPLE WHO HAVE ORDERED DISC DRIVE INTERFACES HAVE A SPECIAL 


MESSAGE AT THE BOTTOM OF THIS PAGE. 

SO IF YOU HAVE ORDERED AN INTERFACE AND THERE IS NO MESSAGE 
ON YOUR COPY PLEASE CONTACT CHRIS BISHOP AT ONCE 



SUBSCRIPTIONS 


The following is our list (so far) of members whose subscriptions 
have already paid for the 1986/1987 year. This is, of course, 
before all those subscriptions are collected at the Easter Monday 
meeting! 


C h r _i_ s Bishop , 6 Jenanne P 1 ace , G 1 en f i e 1 d , Ph 444 5301 

AJ__l§ t cU r Clark, 36 Forbury Road, Dunedin 

Qiyne family, 6 Alfred PI ace , Fa i r f i e 1 d , Dun ed i n 

Mo 1 a Huggins ,612 Mt Albert Road, Royal Oak,Ph 655 718 

Phil Lov egr ov e .145 Carlisle Road, Browns Bay,Ph 478 9761 

family, 6 Oratu PI ace ,Gr eenh i the , RD1 Albany, Ph 413 9874 
Pear son family, 109 Ranfurly Road , Ep som , Ph 686 179 
Andy Russell, 98 Union Road , How i ck , Ph 535 4006 
Ivan Robinson, P 0 Box 2215 , Rotorua ,Ph 89640 


I know that there are a few people who joined at the beginning of 
this year, but if you remember, you all got the back issues of 
the newsletters for the past year as well as the 40 page booklet, 
in effect making you a member for the whole of the 1985/1986 
year, so your subscriptions will also be due. 


P.S. on the DISK DRIVE INTERFACES 


Chris is holding up the first order as some country members have 
been in touch with him letting him know that their cheques are on 
the way. He is quite happy to wait until these cheques arrive, 

but please make sure, if you are going to want a disk drive 
interface from the first order, and you haven't let us know yet, 
get in touch with us NOW to make sure you don't miss out. 


’This is > > TOWERS OF HANOI < < 
adapted tor GENIE by Ron Hart Aug. 84 


50 CLS 
60 CHAR4 
90 PRINT 

100 REM INITIALISE 
110 DINT (7,3) 

120 E=0 
130 F0RD=1T07 
140 FORN= 1 T 02 
150 T ( D , N ) = 0 
160 NEXTN 
170 NEXTD 

175 A=17655: B=-3849 

176 FORK= AT0A+20 : POKEK, 183: NEXTK 

177 FQRK=A+240T0A+240+20: POKEK, 183: NEXTK 
179 F0RK=A+20T0A+20+24OSTEP4C: POKEK, 183! NEXTK 

179 FGRK=AT OA + 240STEP40 : POKEK , 183:NEXTK 

180 F0RL=BTOB+2O: POKEL , 12 : NEXT 

181 F0RL=BT0£+240STEP40: POKEL, 12: NEXT 

182 FORL=B+240TOB+240+20: POKEL, 12: NEXT 

183 FORL=B + 20T0B + 20 + 240STEP40 : POKEL , 12: NEXT 
190 COLOUR" : PRINT0369, "*TQWERS OF HANOI*" 

1=2 F0RT=1T01500: NEXT: CLS 

195 PR I NT " TOWERS OF HANOI " : PRINT: PR I NT” DO YOU NEED RULES ( Y/N) " } : INPUTQ* 

196 I FQ$= ’’ Y ” THENG0T0200ELSEG0T0215 

200 COL OUR 1 : PRINT " THERE ARE THREE TOWERS -1,2, 3 FROM THE LEFT," 

201 PR I NT: PR I NT "ON TOWER 1 THERE ARE ";: C0L0UR5 : PRINT “ UP TO 6 " f : COLOUR! : PRI 

NT" DISCS, NUMBERED 3 , 5 , 7 , 9 , 1 1 , 1 3 " : PRI NT : PRINT " THE MORE DISCS-THE HARDE 

R THE GAME-OF COURSE" 

202 PRINT: PRINT"THESE MUST BE TRANSFERED TO TOWER 3 AND PLACED IN THE SAME 
ORDER . " 

203 C0L0UR5:PRINT:PRXNT"DURING TRANSFER, YOU MAY NOT PLACE A DISC LARGER THA 
N THE ONE BENEATH IT." 

204 COLOUR 1 : PRINT : PRINT "E. G. YOU MAY NOT PLACE DISC 7 ON DISC 5 AND SO ON/ 1 

210 C0L0UR13:PRINT: PRINT" IF YOU PLAY WITH ONLY THREE DISCS-THEY WOULD BE 9 
,11,13... OR 4 WOULD BE 7,9,11,13 ETC 

211 PRINT:C0L0UR2:PRINT"PRESS ANY KEY" 

212 K$-INKEY$: IFK$=" "THEN212 

215 CLS: C0L0UR9: PRINT : INPUT "PLAYING WITH HOW MANY DISCS" ;S 
220 PRINT 
230 M=0 
240 F0RQ=1T07 
250 IFQ=STHEN350 
260 NEXTQ 
270 E=E + 1 
280 IFE>2THEN310 

290 PR I NT "SORRY -ILLEGAL MOVE" : G0T0215 
310 PRINT "STILL NO GOOD-GAME ENDS":STOP 
350 CLS 

390 PRINT : PRINT” GOOD -LUCK" : PRINT 
400 Y=7 : D= 1 3 
420 FOR'X=ST01 STEP- 1 
430 T <Y, 1)=D:D=D-2:Y = Y-1 
460 NEXT)' 

4->0 G0SUB1240 

-80 C0L0UR13: PRINT: PRINT: PRINT"MOVE WHICH DISC " i : E=0 : C0L0UR2 
500 INPUT D 

510 I F ( D - 3 ) * ( D - 5 ) * ( D - 7 ) * ( D - 9 ) * C D - 1 1 ) * ( D - 1 3 ) *0 
530 E=E + l:IF E > 1 THEN590 
590 FOR R=1T07 
= 00 FORC= 1 T 03 
£10 I FT < R , C ) =DTHEN640 
£20 NEXTC : NEXTR 
640 C ORG=RT01STEP- 1 
= 45 I FT ( 6! , C ) =OTHEN660 
£50 Z FT (Q , C ) < DTHEN680 


GOOD-LUCK 


* * * 

* * * 

* * * 

******* * * 

********* * * 

*********** * * 

************* * * 


MOVE WHICH DISC ? 


|0 SEES 1300000 00000000 001 


m 

m 


@ *TOWERS OF 

HANOI* I§ 

Hi 

m 

m 


I0000000000B000000B000I 


660 NEXT Q 
670 G0T0700 

680 PRINT "THAT DISK IS BELOW ANOTHER ONE. MAKE ANOTHER CHOICE." 

690 G0T0480 
700 E=0 

705 FRINT: PRINT: INPUT"TO WHICH NEEDLE ..."; N: PRINT 
730 IF (N- 1 ) *<N-2)*(N-3> =0THEN800 
735 E = E + 1 
7 40 I FE > 1 THEN780 

750 PR I NT "ASSUME YOU HIT WRONG KEY":G0T0705 

780 PR I NT "TRIED TO WARN YOU... GAME OVER" : STOP 

800 FORR= 1 T07 

810 I FT <R, N) O0THEN840 

820 NEXTR 

830 G0T0880 

3*0 IFD \ T ( R , N ) THEN880 

850 PR I NT " YOU CAN’T PLACE A LARGE DISK ON A SMALLER ONE. NOW THEN" : GOT0480 

880 F0RV=1T07: F0P.W=1T03 

900 I FT ( V , W ) =DTHEN930 

910 NEXTW : NEXTV 

930 F0RU=1T07 

940 I FT ( U , N ) < >0THEN970 

950 NEXTU 


ORDERS TO STOP YOU IF YOU MAKE MORE THAN128 MOV 


THE TASK 
; INPUT A$ 


960 U=7 : GOT 0980 
970 U=U-1 

980 T(U,N)=T(V,W):T(V,W)=0 
1000 CLS:G0SUB1240 
M=M+ 1 

F0RR=1T07:F0RC=1T02 
IFT (R, C> < >0THEN1 090 
NEXTC: NEXTR 
G0T01120 
IFM<=128THEN430 
PRINT"SORRY BUT I HAVE 
ES “ : STOP 

1120 IFM< >2tS-lTHENi 140 

COLOURS: PRINT: PRINT-CONGRATULATIONS! ! ! ! 

C0L0UR12: PRINT: PRINT "YOU HAVE PERFORMED 
C0L0UR2: PRINT! PRINT "TRY AGAIN (YES/NO) 

IFA$= "NO "THEN1390 
IFA$= " YES “ THEN90 

PR I NT : PR I NT ■ ’ YES ’ OR ’ NO ’ PLEASE " ; : I NPUT A$ : G0T01 1 60 
F0RK=1T07 
2=7 

F0RJ=1T03 
IFT ( K , J ) =0THEN1330 
PR I NTT AB (2-1 NT (T (K , J ) / 2 ) ) 5 
F0RV=1T0T(K, J) 

COLOUR 1 '.PRINT"*" J 
NEXTV 
G0TO1340 
PRINT 

C0L0UR6: PRINTTAB (2) 5 "*" J 
2=Z+ 1 3 
NEXT J 
PRINT 
NEXTK 


1020 

1030 

1050 

1060 

1030 

1090 

1100 


1130 

1140 

1150 

1160 

1170 

1180 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1325 

1330 

1340 

1350 

1360 

1370 


IN" JM} “MOVES. 


* 

* 

* 

* 

* 

* 

* 


* 

* 

* 

* 

* 

* 

* 


* 

* 

* 

******* 

********* 

*********** 

************* 


you HAVE PERFORMED THE TASK IN 25 MOVES. 


TRY AGAIN (YES /NO) ? 


1380 RETURN 

1390 PRINT: PRINT"THANKS FOR THE GAME “: PRINT : END 



10 CLS 

20 CLS:PRINT@43, "* METRIC CONVERTER*" 

30 PRINT: PR I NT: PR I NT 

40 PR I NT “PRESS ANY KEY FOR MENU" 

50 Q$=INKEY$: IF Q$='"‘ THEN 50 
60 IF Q$<>"“ THEN 70 
70 PRINT" (1) CM. TO IN." 

SO PRINT" C 2) M. TO YDS." 

90 PRINT" (3) CC. TO CU. INS." 

100 PRINT" (4) KM. TO MILES" 

110 PRINT" (5) LITRES TO GALS." 

120 PRINT" (6) GRAMS TO OZ." 

130 PRINT" (7) KG. TO LBS." 

140 PRINT" (8) DEG. C TO DEG. F" 

150 PRINT" C 9) CU.M TO CU YDS." 

1G0 PRINT" CIO) IN. TO CM." 

170 PRINT" (11) YDS. TO M. “ 

180 PRINT" (12) CU. INS. TO CC. " 

190 PRINT" (13) MILES TO KM." 

200 PRINT" (14) GALS. TO LITRES" 

210 PRINT" (15) OZ. TO G. “ 

220 PRINT" (16) LBS. TO KG." 

230 PRINT" (17) DEG. F TO DEG.C" 

240 PRINT" C 18) CU.YDS TO CU.M." 

250 PRINT” (19) MPG TO LperlOOK" 

260 PRINT" (20) Loer 10QK TO MPG" 

270 PRINT" (21) SO. MTRS to SO YDS" 

280 PRINT" (22) SO YDS to SO MTRS" 

290 INPUT "ENTER THE NUMBER OF YOUR CHOICE": A 
300 CLS 

310 IF CA>=1)*CA<=22) THEN 330 
320 PR I NT "TRY AGAIN ! " : GOTO 290 
330 A=INT (A) 

340 IF A=1 THEN A$="CM" : B$=" IN" 

350 IF A=2 THEN A$="M":B$="YDS" 

360 IF A=3 THEN A$="CC" : B$="CU. IN" 

370 IF A=4 THEN A$="KM" : B$="MILES" 

380 IF A=5 THEN A$="L" : 6$= "GAL" 

390 IF A=6 THEN A*="Gr " : B*="Oz " 

400 IF A=7 THEN A$="Kg" : B$="LBS" 

410 IP A =8 THEN A$= " DEG . C " : B$= " DEG . F " 

420 IF A=9 THEN A$="CU. M" : B«="CU YDS" 

430 IF A= 1 0 THEN A4=" IN" : B*="CM" 

440 IF A=1 1 THEN A$="YDS" : B$="M" 

450 IF A=12 THEN A$="CU. IN" : B$="CC. " 

460 IF A=13 THEN A$="MILES" : B$="KM" 

470 IF A=14 THEN A$="GAL" : B$= "LITRES" 

480 IF A=15 THEN A$="OZ" s B*="GMS" 

490 IF A=16 THEN A$="LBS. " : B$="KG" 

500 IF A=17 THEN A$="DEG. F" : B*="DEG. C" 

510 IF A=18 THEN A$="CU. YDS": B*="CU. M" 

520 IF A=19 THEN A$="MPG":B*="L/100K" 

530 IF A=20 THEN A$= " L / 1 OOK " : B$= " MPG ” 

540 IF A-21 THEN A$="SQ M":B$="SQ YDS" 

550 IF A=22 THEN A$="SQ YDS":B$="SQ MTRS" _ . 

560 PRIMT0492, "HOW MANY ":A$:: INPUT B 

570 PRINT@401,STRING$C38, r '-"):PRINT@441, "I" : PRINT@478. "J" £H*pr W 

580 PRINTS481, "«":PRINT@518» "t":PRINT@561,STRING*(38, "-") 

590 PRINTS521, : PRINTS558, "f" 

600 IF A=1 THEN C=B*.3937 

610 IF A=2 THEN C=B* 1.0936 

620 IF A=3 THEN C=B*. 061025 

630 IF A=4 THEN C=B*. 621377 

640 IF A=5 THEN C=B*. 219969 

650 IF A=6 THEN C=B*. 03527 

660 IF A=7 THEN C=B*2. 20437 
670 IF A=8 THEN C=B*(9/5)+32 
680 IF A=9 THEN C=B* 1.3079 
690 IF A=10 THEN 8=6*2.54 
700 IF A=1 1 THEN C=B*. 91441 
710 IF A=12 THEN C=B*16.386 
720 IF A=13 THEN C=B* 1.6093 
730 IF A=14 THEN C=B*4. 54609 
740 IF A=15 THEN C=B*28.3527 
750 IF A=16 THEN C=B*.4536 
760 IF A=17 THEN C=(B-32)*(5/9) 

770 IF A=18 THEN C=B*. 763553 

780 IF A=19 THEN C=100/l .6093*4. 54609/B 

790 IF A=20 THEN C=62. 1388/ (B*. 219969) 

800 IF A-21 THEN C=B* 1.196 
810 IF A =22 THEN C=B*. 836 
320 PRINT: PRINT 

830 F'R I NT @483 , B : " ":A*:"=":C:" ":B* 

340 PRINTS800, "TYPE 1 TO CONTINUE OR 2 TO OUIT" 

850 Q$=INKEY$: IF Q$="" THEN 850ELSE Q=VAL(B*) :ONQGOTO 70,860 
860 PRINT "GLAD TO BE OF SERVICE":FOR P=1 TO 1000: NEXT: CLS: END 
370 INF'UT"L PER 100K";L 
880 MF'G= ( 1 00 / 1 . 6093 ) 4(4. 54609/ L ) 

890 PRINTL; " LITRES PER 100K= ":MPG:" MPG" 

900 END 

910 INPUT "MF'G" :M 

920 LPK=454 . 609/ ( M* 1 . 6093) 

930 F'RINTM; "MPG= ";LPKs "LP100K#" 

940 END 

950 REM: FROM ’55 ADVANCED COMPUTER PROGRAMS IN BASIC' (WATSON, TAB BOOKS) 
960 REM : ARRANGED FOR CG BY AKM 





10 CL5: GOSUB 720 
20 CHAP-4 

30 CLEAR 500: RANDOM: Q*=0: Q*=" " 

40 LC=.5:RC=1-LC 

50 LSi=CHP$ (.1 7 1 ) +CHR* ( 32 ) : F:Si=CHP$ ( 32 ) +CHF:i (162) 

60 L$ = " , " : R$s " , 11 

70 LT*=CHRi (171) +CHPt < 209 ) : PT*=CHP$ (219 ) +CHR$ ( 1 82 ' 

80 B=32: EL=2: EF-36: Cl- 166: DEF1NT V,W 

90 GOSUB 570 

100 PRINT :T=0:N=0 

110 INPUT "ROAD WIDTH (4-15) M ;W 

120 IF W<4 OP W>15 THEN 100 

130 PRINT: PPI NT" VISIBILITY CONDITIONS" 

140 PRINT " 1 - TERRIBLE" 

150 PR I NT "2 - BAD" 

160 PRINT"3 - FAIR- 

170 PR I NT "4 - GOOD": PRINT 

180 INFUT"VISIBILITY (1-4)":V 

190 IF V <1 OR V>4 THEN 180 

200 N=N+ 1 : L= 1 8 : R=L+W+2 : Z=1 8408-80*0 

210 C-INT < <L+R)/2) :H=0 

220 FOP J=1 TO 16: GOSUB 420: NEXT J 

230 GQSUB 480 

240 H=H+1:0=RND<0>: IF Q>RC AND R<ER THEN GOSUB 460:GOTO 270 

250 IF 0<LC AND L>EL THEN G0SUB440 : GOTO 270 

260 GOSUB 420 

270 ZC=Z+C: ZF-ZC+1 

280 Qi=INKEY4: IF Q$=L$ THEN C=C-1 ELSE IF Q*=R$ THEN C=C+1 

290 IF PEEK ( ZC ) =B OR PEEK(ZP)«B THEN POKE ZC, Cl .-GOTO 240 

300 FOF: J =1 TO 8:Q$=INKEY$:P0KE ZC»B:POKE ZP,B:FOR K =1 TO 50: NEXT 

310 POKE ZC,Cl :FQR K=1 TO 50: NEXT: NEXT 

320 M=H*5:T=T+M: PRINT : PR I NT "YOU WENT" : M: "MILES FOR A" 

330 PF:INT"TOTAL OF";T: "MILES IN": N: "DAY (S) " : PRINT 
340 PRINT"HIT »C' - CONTINUE RACE 1 

350 PRINT" * R' - RESTART RACE" 

360 PRINT" M3' - QUIT" 

370 Q*=INKEY$:IF Q*="C" THEN 200 

380 IF Q*<>"R" AND Qt< >"Q" THEN 370 

390 PRINT: PRINT "AVERAGE MILES PER DAY=" : T/N 

400 IF Oi="R" THEN 100 

410 END 

420 PR I NTTAB ( L ) ; RS$ ; TAB ( R ) ; LSi 
430 RETURN 

440 PR I NTTAB ( L ) ; LT* ; TAB C R- 1 ) : LT* 

450 L=L- 1 : R=R- 1 : RETURN 

460 PRINTTABCL+ 1 ) :RT*: TAB(R) ;RT* 

470 L=L+ 1 : R=R+ 1 : RETURN 

480 P=Z+C: GOSUB 710: P=Z+C-1740e-13 

490 Cl *=CHR* ( 1 42 ) + CHR* ( B ) + " 0 " +CHR* ( B ) +CHR* <1 42 ) 

500 P=P-200: F'RINTSP, STRING*(5, 152): 

510 FOR J=1 TO 5 :P=P+40: PRINTER, Cl*: :NEXT 
520 PR I NTeP+40 , STR I NG* C 5 , 1 86 > : 

530 FOF: J =1 TO 600.-NEXTJ 

540 FOR J=4 TO 0 STEP -It FOR K =1 TO 300: NEXT 

550 PRINTeP+2-40*J,CHR$(143); : NEXT: PRINT® 560,CHR*(B) 

560 RETURN 

570 DIM D(9):L=11:R=18: CLS 
580 FOR J =1 TO 9: READ D(J):NEXT 
590 DATA 82,79,65,68,82,65,67,69,32 
600 GOSUB 420 
610 GOSUB 460 

620 FOR J =1 TO 2: GOSUB 440: NEXT 
630 FOR J=1 TO 10: GOSUB 460: NEXT 
640 P= 17423: POKE P,C1 
650 FOP J=1 TO 500: NEXT 
660 F-F+41 : GOSUE 710 


670 FOF: J =1 TO 2: P=F+39: GOSUB 710: NEXT 

680 P=P+41: GOSUB 710 

690 FOR J =1 T09:P=P+41: GOSUB 710 

700 POKE P,D(J):POKE P+1, B: NEXT 

710 POKE P, Cl: FOR K=1 TO 50: NEXT: RETURN 

720 PRINT650, "* INSTRUCTIONS *" ^ f ,\ 

730 PRINT690, " SSSSSSSSSSSSSSSS" 

740 PRINT6160," Use the »<» AND » >’ keys to steer" 

750 PRINT8240, " Set the width and visibility to suit your ability. The lower the 
Karder the course." 

760 PRINT6414, ” Good luck !“ 

770 FOR F-l TO 2000: NEXT 
780 RETURN 
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BIRD WATCHER * S CHART 
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LEGEND: So or sw =swatnp 

w.or wr “water 
d„or dt “desert 
■f . or -ft “-forest 
am “morning 
pm “evening 
sz “size 
col “colour 
m/-f =ma 1 e/fema 1 e 
B “bird 


2 ’ This is >> BIRDWATCH << from simulated 
variations. .. .or varigated permutations., 
ted -for GENIE by Ron Hart June 83. 

5 REM SET DATA 

10 H=0: DIMB (16,14) IDIMI (16) : DIMNS (8) : DIMP ( 16) 
20 PR I NT SPRINT "PLEASE WAIT ! ■ : F0RI-1T016 
30 B ( I , 14) =0 


stimulations, 
. (ATARI) by ( 


40 P(I)=l/ (17-1) 

50 READN 

60 F0RJ“12T01STEP- 1 
70 Q=INT (N/2) 

80 B < I , J ) =2* (N/2-Q ) 
90 N=Q 
100 NEXTJ 
110 NEXTI 


..or stimulating 
•W. Engels. . .adap 


120 DATA2128, 1121,594,355,3220 

130 DATA2725, 2454, 1703, 1528, 1017 

1 40 DAT A2042 , 3067 ,3516, 3773 , 4030 , 403 1 

150 F0RI=1T08 

160 RE ADN$ ( I ) : NEXT I 

170 DATABIG, SMALL, BLUE, YELLOW 

1 80 DAT ALONG-BEAKED , SHORT-BEAKED , FEMALE , MALE 

195 REMINPUT PLACE 

200 FOR I«1 TO 16:1 ( I ) *0: NEXT 

210 INPUT " PL ACE -SWAMP -WATER ►DESERT -FOREST * .S/W/D/F* 5 L* 

220 PRINT: INPUT-WHEN SEEN-MORNING/EVENING-M/E* f T* 

230 PRINT: INPUT-WHERE SEEN-SKY/GROUND-H/L " | A* 

260 IFL$="S-THENI (1>=1 

270 IFL*="W"THENI (2)=1 

280 IFL$-"D"THENI (3)=1 

290 IFL*="F"THENI <4)*1 

300 IFT*=-M"THENI (5)«1 

310 IFT$=“E*THENI (6)=1 

320 IFA*=“H"THENI (7) =1 

330 IFA*="L-THENI (8)=1 

340 F0RI=1T016:B(I, 13)=0:NEXTI 

350 F0RI=1T016:F0RJ*1T08 

360 IFB ( I , J ) < >1 ( J ) ANDB ( I , J ) =0THEN390 

370 NEXTJ 

380 B ( I , 13) =1 

390 NEXTI 

395 REM FIND BIRDS 
400 FORI =1T02STEP . 02 
410 J= I NT ( 1 6-fcRND ( 0 ) + 1 ) 

420 IFB ( J, 13) < >1THEN440 
430 IFRND < 0) <P ( J ) THEN460 
440 NEXTI 

450 PRINT: PRINT-NO SIGHTINGS* : H=H+I : G0T0200 
460 H=H+ I 

470 K=INT(4*RND(0)+1) 

480 N=B ( J , K+8 ) 

490 PRINT:PRINT"THE BIRD IS - J N$ <2*K-N) : PRINT : PRINT“TIME LAPSE: "|I::PRI 

nt:print-total time: - ;h 

495 REM INPUT ID 

500 PRINT: INPUT" IDENTIFY 1-16-JI 
510 IFI® JTHEN530 

520 PRINT: PRINT-NOT CORRECT IDENTIFICATION" : C1=C1 +1 : G0T0500 

530 IFB ( J , 14 ) =1THEN PRINT" ALREADY SPOTTED “: G0T0550 

540 PRINT:PRINT-A NEW ONE! -:B(J, 14)=1 

550 IFH > 10THEN570 

560 G0T0200 

570 PRINT:PRINT’TIME UP- 
580 F0RI=1T016 

590 IFB (I, 14)«1THENPRINT-Y0U SAW BIRD# "JI:B1=B1+1 
600 NEXTI 

610 print:print-your RATING IS "J 10*B1-Cl; • 

620 PRINT: INPUT-PLAY AGAIN Y/N"5Y$ 

630 I F Y$= * Y " THENRUN 
640 END 

1000 ’ YOU WILL (WILL) NEED THE CHART !!) 
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50 ’THIS IS >) bunny << adapted far GENIE by Ron Hart from B.C. GAMES { AHL ) 
Nov 85. 

A 20 FORI S 0T04 1 READB ( I ) S NEXT I 

130 G0SUB260 

140 L=64 

150 : 1 

160 LPRINT 

170 READXS IFX<0THEN16Q 
175 IFX > 128THEN240 
180 READ Y 

190 FQRI-XTOYS J = I-5*INTU/5> 

200 LPRINTTAB1XI §CHRiML*B< J) ) j 
210 NEXT I 
220 G0T0170 
230 REM 

240 G0SUB260 o *G0T0450 
250 REM 

260 F0RI«1T06:LPRINTCHR*( 10) $ SNEXTI 
270 RETURN 
280 REM 

300 DATA2, 21, 14,14,25 

310 DATA1 ,2,39 , 41 p -1,0,2 , 39, 42, -1,0, 5, 39, 43, >1,0,7,39, 43, -1 

320 DATA1 ,9,36, 43, -1,2, 11 , 37, 43, - 1 , 3 , 1 3 , 36 , 42 , - 1 , 4, 14 , 34 , 42 , - 1 

330 DATA5 , 15,33,41,-1,6,16,32,41,-1,7,17,31,40,-1,8,19,30,39,-1 

340 DATA9, 20, 29, 38, -1,10, 2 1,28, 37, -1,1 1,22 ,27, 36,-1, 12,22,26,35,-1 

350 DATA 13, 34, -1, 14, 33, -1 , 15, 31 , -1 , 17, 29, - 1 , IS, 27, -1 

360 DATA1 9 ,26,-1, 16,28,-1,13,30,-1,11,31,-1,10,32,-1 

365 DATA8, 33,-1 ,7,34, -1 ,6, 13, 16,34,-1,5,12,16,35,-1 

370 DATA4, 12,16,35,-1,3,12,15,35,-1,2,35,-1,1,35,-1 

380 DATA2, 34, -1 , 3, 34, -1,4,33,-1,6,33,-1,10,32,34,34,-1 

390 DATA14 , 17,19,25,28,31,35,35,-1,15,19,23,30,36,36,-1 

400 DATA14, 18,21,21,24,30,37,37, -1, 13, 18,23,29,33,38, -1 

410 DATA12, 29,31,33,-1,11,13,17,17,19,19,22,22,24,31,-1 

420 DATA10, 1 1 , 17,18,22,22,24,24,29,29,-1 

430 DATA22, 23, 26, 29,-1,27,29,-1,28,29,-1, 4096 

440 REM 

450 END 


: T •' I M f : PR I M r PR I NT : PR [ NT 3 PR I NT 5 PR I NT 
‘R I. N ! " UUCM6DA Y " 


i- ! l ; v- r, L i - 


:, R I N T " D L DONALDSON " 


"HI I" , .NY 


R [NT i PR CM 


FR I NT "THE DOOMSDAY BOMB HAS JUST EXPLODED ?- SURFACE RADIATION IS" 

PRINT "AT LETHAL LEVELS & YOUR ONLY CHANCE OF SURVIVAL IS TO REACH" 

PRINT "LEVEL 10, DEEP IN THE RADIATION SHELTER. UNFORTUNA TELY THE" 

PR I NT "BuMB BLAST HAS MADE THE ELEVATOR COMPLETELY UNRELIABLE i. It" 

PR I NT "WILL NOT RESPOND CORRECTLY TO THE KEY PRESSED. RADIATION IS" 

PRINT" SLOWLY SEEPING DOWN THE SHELTER LEVELS. TO SURVIVE YOU **must*:K" 

PRINT "GET TO LEVEL TO BEFORE YOUR RADIATION EXPOSURE REACHES 30" 

PR I NT "GAM A UNITS" 

PRINT SPRINT "BEST OF LUCK" 

PRINT: PRINT" YOU ARE NOW IN THE ELEVATOR, SELECT WHICH LEVEL YOU WOULD LIKE" 
PR I NT "YOU ARE NOW ON THE SURFACE AT LEVEL ' O'": GOTO 195 
PRINT "SELECT THE LEVEL YOU WOULD LIKE’ 

PR I NT " YOUR RADIATION EXPOSURE IS PRESENTLY " ; R 
INPUT L$ 

L=INT ( 10*RND (O) ) 

IF L=10 GOTO 500 

PRINT "THE ELEVATOR WENT TO LEVEL " ; L 

IF L=0 THEN PRINT "ON THE SURFACE, RADIATION LETHAL ": GOTO 600 
R=R + ( 10— L ) 

IF R< 30 GOTO 192 

IF R >30 THEN PRINT "RAD I AT I ON LETHAL FLOWERS WILL BE SENT TO YOUR FUNERAL" 
GOTO 600 

.PRINT "YOU ARE NOW AT LEVEL 10 AND SAFE PROM DEATH, YOUR RADIATION LEVEL WAS*' 
PRINT: PR [NT 

PRINT "HOWEVER, IT WILL FAKE 1000 YEARS BEFORE THE EARTH’S SURFACE IS’ 

PR I NT "SUITABLE FOR HABITATION BY HUMANS AGAIN ENJOY YOUR HOLIDAY. " 

GOTO 800 

FOR K — 1 ra 1500: NEXT K 


PR I NT 1 PR I I I r ; PP [ N f ; PR [ NT : PR I NT 
PR I NT " 
pr i n r m 
PR ENT ‘ 

PRINT'' 

PR i. NT " i ” 

PRINT" ! 

PRINT " 


PR I NT ‘ 


PR I NT " 

PR I N T ” 

PR I NT 
PR [ NT " 

FOR A“ 1 TO 
1 3D TO 5<> 


R . I . P 


000 : MF X T 


A 





10 REM: GOLF 

20 F EM: FROM THE RAINBOW BOOR OF BASIC FROGF:AMMES 
30 REN: ADAPTED BY AKM 
40 GOCUB 2B0 

SO F F I NT " ZIGZAG GOLF" 

£0 H=1 : 3-0 

7 0 N= 1 0 : GOSUB 300 : A=R- 1 : GOSL'D 300 : B=R- 1; IF ABS ( B-A ) >5 OR A+ Es=0 THEN 70 

GO T =2: GOSUB 310:G03UB 450: X=7: Y= 1 : GOSUB 350: PR I N'T "HOLE H: X = 5 : Y=8: GOSUB 

•50 FOR X=20 TO SCO STEP 40: PRINTOX » "a" : NEXT 

1 00 PR I NTG&2 r " STROKES : " ; S 

110 PR I NT el 02, "HOLES : " ; H- 1 

120 X = 1 + A+B : Y=9-A+E : GOSUB 350: PRINT"0": S=S+1 : 

130 X=1:Y=21: GOSUB 350: PRINT"ZIG INPUT C: IF 09 THEN 130 
140 X=11:Y=21: GOSUB 350: PRINT" ZAG *' ; : INPUT D: IF D>9 THEN 140 
150 X- 1; Y=9: T=. 2: IF C=0 THEN 170 

ISO FOR N=1 TO CiGOSUB 350: PR I NT" X=X + 1 : Y=Y-1 : GOSUB 350: PRINT" f " GOSUB 

165 REM: THE GRAPHICS CHARACTER IS SHIFT A 
170 IF D=0 THEN 190 

ISO FOR N=1 TO D: GOSUB 350: PRINT" X=X+1 : Y=Y+1 : GOSUB .350: PRINT" GOSUB 
190 X=3:Y=14: GOSUB 350: IF A < >C OR BOD THEN PRINT "MISSED ! " ; : GOTO Bo 
200 PRINT "SUNK IT 1 " 

210 T =2: GOSUB 310 

220 H=H+i : IF H<10 THEN 70 

230 GOSUB 450: PRINT : PRINT : PRINT "YOU TOOK ":S:" STROKES" 

240 PRINT : PRINT : IF S<18 THEN PRINT "A REAL PRO!": GOTO 270 
250 IF S<27 THEN F'RINT"SHOWC PROMISE !": GOTO 270 
260 PRINT "KEEP PRACTISING'" 

270 PR I NT : PR I NT : PR I NT " END " : END 


350: PRINT":*:" 

I 

3 

r 

310: NEXT N 
310: NEXT N 


2S0 W=39 : D=24 : F=8 : GOSUB 290: RETURN 
290 CLS : PR I NTS320 , " " ; : RETURN 
300 R=RND(N): RETURN 
310 FOR Z=1 TO 150$T : NEXT Z: RETURN 
320 G*= INKEY*: IF G*="" THEN 320 
330 RETURN 

340 K*= I NKEY* : RETURN 

350 PR INTS40*Y+X , " " : : RETURN 

360 F'RINTTABCX): : RETURN 

370 PRINTCHR* (27) :: RETURN 

380 PR I NTCHR* ( 25) : : RETURN 

390 INPUT K*: RETURN 

400 CLS: RETURN 

410 CALL 357C: RETURN 

420 P$=CHR* (R+64) : RETURN 

430 F'*=MID* (K$f P, 1) : RETURN 

440 GOSUB 430 : A=ASC ( F'$ ): RETURN 

450 CLS: RETURN 

460 DIM V* (28) : RETURN 

470 DIM W*< 60): RETURN 

480 GG=ASC CG* ) : RETURN 


20 ’this is > WORDSQUARE < adapted -from ’rainbow book o-f programmes 
25 ’by Ron Hart august 85. 

30 ’SCORE as -follows: 1 (ONE) point for each letter of a complete 2,3 s 4 9 or 
5 letter word ...... computer will ask for scores by line and column 

50 CLS:CLEAR1000 
100 REMLETTERS 
110 G0SUB1 100 

120 letx=o:lety=i 

130 G0SUB 1 700 

140 C0L0UR8: PRINT " 1. 2. 3. 4. 5. 

150 F0RN= 1 T05 

155 PRINT 

160 PRINT 

170 PR I NT ; STR$ ( N ) 

180 NEXT 

185 C0L0UR2 

190 LETN=26 

200 FORT = 1 3T01 STEP- 1 

210 GOSUB 1 300 

220 G0SUB2500: LETK$=R$ 

230 LETX=0:LETY=18: G0SUB1700 

240 COLOURS: PRINT" MY CHOICE IS " ;K*? ” 

250 G0SUB410 

260 LETX=0:LETY=18:G0SUB1700 

270 C0L0UR7:PRINT"Y0UR CHOICE IS "J 

280 G0SUB2200 ~ 

290 G0SUB4I0 
300 NEXTT 
310 F0RC=1T05 
320 G0SUB480 
325 PRINT8100 , " 

330 PR I NTS 100, "LINE" | C> " SCORE"; 

340 G0SUB2100 
345 PRINT018O, " 

350 PRINT8180 , "COLUMN" ;C| "SCORE" ; 

360 G0SUB2200 
370 T=T +K+VAL (K$) 

380 NEXTC 

390 C0L0UR4: PRINTS260, "YOUR SCORE IS " ; T : C0L0UR2 : F0RX=1T02Q©0: NEXT 
400 CLS:END 

410 colour8:letl$=k$:print:print* line 

420 G0SUB2100 
430 LETY=1+K*3 

440 C0L0UR7: PRINT: PRINT" COLUMN ”;:G0SUB2100 
450 LETX=K*3 
460 G0SUB1700 
470 PRINTL* 

480 LETX=0: LETY=18: G0SUB1700 
490 F0RN=1T05 
500 PRINT" 

510 NEXTN 
520 RETURN 

1000 REM DRAGON SUBROUTINES 

1100 W=40: D=24: F=4: G0SUB1200: RETURN 

1200 CLS: PRINT8256, " " ; : RETURN 

1300 R=RND (N) : RETURN 

1500 G$=INKEY$: IFG$=" " THENG0T01 500 

1510 RETURN 

1700 PRINT@40*Y+X, " " | : RETURN 
2100 I NPUTK: RETURN 
2200 INPUTKS: RETURN 
2500 R$=CHR$(R + 64) : RETURN 



5 DIMA* (200) 

10 CLS 

50 ’This is a TEXT ANALYSIS programme. 

60 ’an exercise in data dealings by Ron Hart November 85 

90 N=54: ’number o-f words in text (YOUR CHOICE )„... change line 5 and line VO 
to suit 

130 C0LOUR2:PRINT"THE COMPUTER CONTAINS AN EXTRACT FROM A MAGAZINE. IT WILL 
ANALYSE THE SCRIPT BY WORD LENGTH OR SPECIFIC WORD OCCURANCE . . . OR WORD INI 
TIAL LETTER” 

135 letk=o:letj=o:letc=o 

140 PRINT: PRINT”THE FULL TEXT FOLLOWS" 

150 COLOURl:PRINT:PRINT">>>>I HAVE ASSUMED THAT YOU HAVE NO EXPERIENCE 

OF COMPUTERS OR ELECTRONICS. I HAVE NOT EVEN ASSUMED THAT YOU HAVE EL.ECTR 
ICAL KNOWLEDGE. A BOOK SUCH AS THIS DOES NOT APPEAR WITHOUT A CONSIDERABLE A 
MOUNT OF HELP FROM OTHE 

155 PRINT*’ FINALLY , THE LISTINGS IN THIS BOOK HAVE BEEN SET DIRECTLY FROM A 
PRINTOUT<<< n :CCL0UR2 

170 PRINT: PRINT"WORD/S OF GIVEN LENGTH-WHAT LENGTH ” 5 : INPUTL 
210 PRINT: PRINT" WORD REOUBNCY-WHICH WORD " 5 : INPUTB* 

215 PRINT: INPUT" INITIAL LETTER FREQUENC Y-LETTER ” ; C* 

245 FORT=iT0200: NEXT : CLS 
250 FORX= 1 TON 
290 RE AD A* (X) 

330 I FA* (X) =B$THENK=K+1 ! PRINT 
370 REMCHECK WORD LENGTHS 
410 I =LEN < A* ( X ) ) 

450 IF J-LTHENJ= J + 1 : COLOURS: PRINT: PRINTL ; " LETTER ••tyORD " A$(X) 1C0L0UR2 

455 IF LEFT* ( A* ( X ) , 1 ) =C*THENC i C'M : C0L0UR7 : PRJNT l PRINT " INITIAL ";C$;" WORD "5 

C f * - - " 5 A* ( X ) 

490 NEXTX 

500 C0L0UR7: IFK=OTHENPRINT:PRINT"WORD * " 5 : COLOURS: PRINTB** ; C0L0UR7: PRINT ’ 

* NOT FOUND” :C0L0UR2:G0T0570 * 

530 PRINT:PRINT"THE WORD ";: COLOURS : PRINTB* C0L0UR2 : PRI#£" OCv, *RS "JKf" TI 
MES” 

570 print:colour6:print"CONfirm ";l;" letter words= " ; j : colourz 

580 C0L0UR7:PRINT:PRINT"C0NFIRM INITIAL "iC*|" WORDS NUMBER "SCSC0LQUR2 
591 PRINT 

650 C0L0UR15:PRINT”D0 YOU WISH TO CONTINUE-Y/N" } : INPUTR* 

655 IFR$=" "THEN650 

656 I FR*= " Y " THENRESTORE : CLS : GOTO! 35 
660 CLS : PRINT: PRINT0539 , ”0. K . THANKS" 

670 END 

690 DATA I , HAVE , ASSUMED , THAT , YOU , DO , NOT , HAVE , A , LOT, OF, COMPUTING, EXPERIENCE 
, . , I , HAVE , NOT , EVEN , ASSUMED , THAT , YOU , HAVE , ANY , ELECTR I CAL , KNOWLEDGE 
700 DAT A A , BOOK , SUCH , AS , THI S , DOES , NOT , APPEAR , W I THOUT , A , CONSIDERABLE , AMOUNT , 0 
F , HELP , FROM , OTHER , PEOPLE 

710 DATAFINALLY, THE, LISTINGS, IN, THIS, BOOK , HAVE , BEEN, SET , FROM, A, PRINTOUT 



INITIAL E WORD 1 --EXPERIENCE 
INITIAL E WORD 2 --EVEN 


INITIAL E WORD 3 --ELECTRICAL 

8 LETTER WORD 1 LISTINGS 

8 LETTER WORD 2 PRINTOUT 

THE WORD ELECTRICAL OCCURS 1 

CONFIRM 8 LETTER WORDS= 2 

CONFIRM INITIAL E WORDS NUMBER 

DO YOU WISH TO CONTINUE- Y /N? 

Break in 650 

READY 

>LPRINTUSR (7) 


TIMES 


3 


This will initiate a sensor search for any planet within 
teleport range* A report will give details of the planet, 
atmosphere, surface temperature, pressure, gravity and 
population, if any, if the search is successful. 


Beam (B) 

This control will teleport you down to the surface of the 
planet where you may, or may not, meet a helpful or 
otherwise alien. In the interests of personnel retrieval 
return to the Enterprise is automatic. 


5TARBASE5 


There are a limited number of starbases in the galaxy, 
their position is shown by a green square on the galaxy map 
and a green symbol on the quadrant display. Docking under 
impulse drive with a starbase will replenish your energy 
and torpedo levels and repair any damage. To dock with the 
starbase try and move your ship over the base using the 
four arrow keys. 


sunn ary 


Arrow keys 

U 

S 

D 

T 

1,2,3 

L 

P 

B 

Space-bar 


Impulse Drive 
Uarp Drive 
Shield Control 
Damage Reports 
Torpedo Fire 
Phasor Fire 
Long Range Scan 
Planet Search * T 

Beam 

Quadrant Display/lnstipument Screen switch 
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